#!/usr/bin/env perl

use utf8;
use strict;

my $exist_tm = 0;

my $old_file;

if(@ARGV == ()){
	print "Parameters is empty!\n";
	exit(1);
}

foreach(@ARGV){
	if(-C $_ > $exist_tm){
		$exist_tm = -C _;
		$old_file = $_;
	}
}

print "The oldest file is $old_file, exist $exist_tm days!\n";
